home *** CD-ROM | disk | FTP | other *** search
/ Gekkan Dennou Club 147 / Gekkan Dennou Club - 2000.8 Vol. 147 (Japan).7z / Gekkan Dennou Club - 2000.8 Vol. 147 (Japan) (Track 1).bin / tools / zmc3v078 / zmc3v078.lzh / SRCSV078.LZH / 68LIB.C < prev    next >
C/C++ Source or Header  |  1998-12-27  |  1KB  |  65 lines

  1. #include <stdlib.h>
  2. #include <string.h>
  3. #include <ctype.h>
  4. #include "config.h"
  5. #include "etc.h"
  6.  
  7. #ifndef NOUSE68LIB
  8. int    stricmp(const char *s1, const char *s2);
  9. char *strlwr(char *s);
  10. #endif
  11.  
  12.  
  13. #ifndef NOUSE68LIB
  14. int    stricmp(const char *s1, const char *s2)        /* contributed by E.Tanaka, thanks! */
  15. {
  16. #ifdef UNIXY_OS
  17.     int        Ch1, Ch2;    /* pure string */
  18.     int        ch1, ch2;    /* lower'd string */
  19.  
  20.     do {
  21.         Ch1 = *s1++;
  22.         Ch2 = *s2++;
  23.         ch1 = tolower(Ch1);
  24.         ch2 = tolower(Ch2);
  25.         if (ch1 != ch2) {
  26.             return (ch1 - ch2);
  27.         }
  28.     } while (Ch1 != '\0' || Ch2 != '\0');
  29. #else
  30.     int    Ch1, Ch2;    /* pure string */
  31.  
  32.     do {
  33.         int i;
  34.  
  35.         for (i = 0; i < 2; i++) {
  36.             int k = iskanji(Ch1 = *s1++);
  37.             Ch2 = *s2++;
  38.  
  39.             if (!k) {
  40.                 Ch1 = tolower(Ch1);
  41.                 Ch2 = tolower(Ch2);
  42.             }
  43.             if (Ch1 != Ch2) {
  44.                 return (Ch1 - Ch2);
  45.             }
  46.             if (!k || Ch1 || Ch2) {
  47.                 break;
  48.             }
  49.         }
  50.     } while (Ch1 || Ch2);
  51. #endif
  52.     return 0;
  53. }
  54.  
  55.  
  56. char *strlwr(char *s) {                            /* contributed by Y.Wabiko, thanks! */
  57.     char *d = s;
  58.  
  59.     do {
  60.         *s = tolower((char)*s);
  61.     } while (*s++);
  62.     return d;
  63. }
  64. #endif    /* NOUSE68LIB */
  65.